Option Explicit
Sub B_Sample043()
    Dim myWb     As Workbook
    Dim myWd     As Window
    Dim myWState As String
    Set myWb = Workbooks(1)		'Nï
    Set myWd = myWb.Windows(1)
    Select Case myWd.WindowState
        Case xlMaximized
            myWState = "̤j"
        Case xlNormal
            myWState = "з"
        Case xlMinimized
            myWState = "̤p"
    End Select
    MsgBox myWState & "A", vbInformation
End Sub
